sub main()	dim x as integer	dim aURL as url	aURL = new url	aURL.url = "http://sourceforge.net/project/showfiles.php?group_id=4451&package_id=4495&release_id=41230"	msgbox(aURL.url)		msgbox("Protocol: " & aURL.protocol)	msgbox("Host: " & aURL.host)	msgbox("Port: " & aURL.port)	msgbox("Path: " & aURL.path)	msgbox("QueryString: " & aURL.queryString)		aURL.host = "www.apple.com"	msgbox(aURL.url)end sub